   program clean_robin
    character*5 ticker(182)
    character*29 raw
    character*8 date
    character*7 nhold
    integer(kind=8) nshrs(5000),nvalue(5000),jvalue(5000),ivol(5000),numshrs(5000)
    dimension jast(5000),jdate(5000),itickt(5000),age(5000),favg(5000),fmax(5000),fmin(5000),fstd(5000),iperm(5000)
    dimension  price(5000),ishrout(5000),vwret(5000),util(5000),retrn(5000),dfee(5000),nep(5000)
      open(unit=10,file='e:\FIS_duration\robin_tickers.txt')
      open(unit=11,file='e:\FIS_duration\robinhood\AAOI.csv')
      open(unit=12,file='e:\FIS_duration\robinhood\ABIO.csv')
      open(unit=13,file='e:\FIS_duration\robinhood\ACIA.csv')
      open(unit=14,file='e:\FIS_duration\robinhood\ADT.csv')
      open(unit=15,file='e:\FIS_duration\robinhood\AEHR.csv')
      open(unit=16,file='e:\FIS_duration\robinhood\AHPI.csv')
      open(unit=17,file='e:\FIS_duration\robinhood\AIMC.csv')
      open(unit=18,file='e:\FIS_duration\robinhood\ALPN.csv')
      open(unit=19,file='e:\FIS_duration\robinhood\ALT.csv')
      open(unit=20,file='e:\FIS_duration\robinhood\AMRS.csv')
      open(unit=21,file='e:\FIS_duration\robinhood\APDN.csv')
      open(unit=22,file='e:\FIS_duration\robinhood\APPN.csv')
      open(unit=23,file='e:\FIS_duration\robinhood\APT.csv')
      open(unit=24,file='e:\FIS_duration\robinhood\AQMS.csv')
      open(unit=25,file='e:\FIS_duration\robinhood\ARAV.csv')
      open(unit=26,file='e:\FIS_duration\robinhood\ARLO.csv')
      open(unit=27,file='e:\FIS_duration\robinhood\ARWR.csv')
      open(unit=28,file='e:\FIS_duration\robinhood\ATUS.csv')
      open(unit=29,file='e:\FIS_duration\robinhood\AVXL.csv')
      open(unit=30,file='e:\FIS_duration\robinhood\AWX.csv')
      open(unit=31,file='e:\FIS_duration\robinhood\BKE.csv')
      open(unit=32,file='e:\FIS_duration\robinhood\BLFS.csv')
      open(unit=33,file='e:\FIS_duration\robinhood\BLIN.csv')
      open(unit=34,file='e:\FIS_duration\robinhood\BLNK.csv')
      open(unit=35,file='e:\FIS_duration\robinhood\BMRA.csv')
      open(unit=36,file='e:\FIS_duration\robinhood\BPTH.csv')
      open(unit=37,file='e:\FIS_duration\robinhood\BSGM.csv')
      open(unit=38,file='e:\FIS_duration\robinhood\BTAI.csv')
      open(unit=39,file='e:\FIS_duration\robinhood\CAAS.csv')
      open(unit=40,file='e:\FIS_duration\robinhood\CAPR.csv')
      open(unit=41,file='e:\FIS_duration\robinhood\CARA.csv')
      open(unit=42,file='e:\FIS_duration\robinhood\CARV.csv')
      open(unit=43,file='e:\FIS_duration\robinhood\CBFV.csv')
      open(unit=44,file='e:\FIS_duration\robinhood\CBMG.csv')
      open(unit=45,file='e:\FIS_duration\robinhood\CDZI.csv')
      open(unit=46,file='e:\FIS_duration\robinhood\CIA.csv')
      open(unit=47,file='e:\FIS_duration\robinhood\CKX.csv')
      open(unit=48,file='e:\FIS_duration\robinhood\CLDB.csv')
      open(unit=49,file='e:\FIS_duration\robinhood\CLIR.csv')
      open(unit=50,file='e:\FIS_duration\robinhood\CLVS.csv')
      open(unit=51,file='e:\FIS_duration\robinhood\COHN.csv')
      open(unit=52,file='e:\FIS_duration\robinhood\COTY.csv')
      open(unit=53,file='e:\FIS_duration\robinhood\CPAH.csv')
      open(unit=54,file='e:\FIS_duration\robinhood\CRK.csv')
      open(unit=55,file='e:\FIS_duration\robinhood\CRTX.csv')
      open(unit=56,file='e:\FIS_duration\robinhood\CSPR.csv')
      open(unit=57,file='e:\FIS_duration\robinhood\CTSO.csv')
      open(unit=58,file='e:\FIS_duration\robinhood\CTXR.csv')
      open(unit=59,file='e:\FIS_duration\robinhood\CUE.csv')
      open(unit=60,file='e:\FIS_duration\robinhood\CVM.csv')
      open(unit=61,file='e:\FIS_duration\robinhood\CVNA.csv')
      open(unit=62,file='e:\FIS_duration\robinhood\CVR.csv')
      open(unit=63,file='e:\FIS_duration\robinhood\CWH.csv')
      open(unit=64,file='e:\FIS_duration\robinhood\DDD.csv')
      open(unit=65,file='e:\FIS_duration\robinhood\DDS.csv')
      open(unit=66,file='e:\FIS_duration\robinhood\DHR.csv')
      open(unit=67,file='e:\FIS_duration\robinhood\DLTH.csv')
      open(unit=68,file='e:\FIS_duration\robinhood\DO.csv')
      open(unit=69,file='e:\FIS_duration\robinhood\ELAN.csv')
      open(unit=70,file='e:\FIS_duration\robinhood\EOLS.csv')
      open(unit=71,file='e:\FIS_duration\robinhood\EXPI.csv')
      open(unit=72,file='e:\FIS_duration\robinhood\FAT.csv')
      open(unit=73,file='e:\FIS_duration\robinhood\FBSS.csv')
      open(unit=74,file='e:\FIS_duration\robinhood\FCAP.csv')
      open(unit=75,file='e:\FIS_duration\robinhood\FRAN.csv')
      open(unit=76,file='e:\FIS_duration\robinhood\FSLY.csv')
      open(unit=77,file='e:\FIS_duration\robinhood\FTR.csv')
      open(unit=78,file='e:\FIS_duration\robinhood\FTV.csv')
      open(unit=79,file='e:\FIS_duration\robinhood\GALT.csv')
      open(unit=80,file='e:\FIS_duration\robinhood\GBR.csv')
      open(unit=81,file='e:\FIS_duration\robinhood\GERN.csv')
      open(unit=82,file='e:\FIS_duration\robinhood\GME.csv')
      open(unit=83,file='e:\FIS_duration\robinhood\GNCA.csv')
      open(unit=84,file='e:\FIS_duration\robinhood\GPRO.csv')
      open(unit=85,file='e:\FIS_duration\robinhood\GTT.csv')
      open(unit=86,file='e:\FIS_duration\robinhood\GWGH.csv')
      open(unit=87,file='e:\FIS_duration\robinhood\HEAR.csv')
      open(unit=88,file='e:\FIS_duration\robinhood\HFBL.csv')
      open(unit=89,file='e:\FIS_duration\robinhood\HFFG.csv')
      open(unit=90,file='e:\FIS_duration\robinhood\HNNA.csv')
      open(unit=91,file='e:\FIS_duration\robinhood\IGC.csv')
      open(unit=92,file='e:\FIS_duration\robinhood\IMH.csv')
      open(unit=93,file='e:\FIS_duration\robinhood\IMUX.csv')
      open(unit=94,file='e:\FIS_duration\robinhood\INMB.csv')
      open(unit=95,file='e:\FIS_duration\robinhood\INO.csv')
      open(unit=96,file='e:\FIS_duration\robinhood\INS.csv')
      open(unit=97,file='e:\FIS_duration\robinhood\INSG.csv')
      open(unit=98,file='e:\FIS_duration\robinhood\IPWR.csv')
      open(unit=99,file='e:\FIS_duration\robinhood\JAN.csv')
      open(unit=100,file='e:\FIS_duration\robinhood\KNDI.csv')
      open(unit=101,file='e:\FIS_duration\robinhood\KODK.csv')
      open(unit=102,file='e:\FIS_duration\robinhood\KRTX.csv')
      open(unit=103,file='e:\FIS_duration\robinhood\LE.csv')
      open(unit=104,file='e:\FIS_duration\robinhood\LEDS.csv')
      open(unit=105,file='e:\FIS_duration\robinhood\LEU.csv')
      open(unit=106,file='e:\FIS_duration\robinhood\LLY.csv')
      open(unit=107,file='e:\FIS_duration\robinhood\LMND.csv')
      open(unit=108,file='e:\FIS_duration\robinhood\LOAN.csv')
      open(unit=109,file='e:\FIS_duration\robinhood\LOOP.csv')
      open(unit=110,file='e:\FIS_duration\robinhood\LTRPB.csv')
      open(unit=111,file='e:\FIS_duration\robinhood\LYFT.csv')
      open(unit=112,file='e:\FIS_duration\robinhood\MBCN.csv')
      open(unit=113,file='e:\FIS_duration\robinhood\MBI.csv')
      open(unit=114,file='e:\FIS_duration\robinhood\MBOT.csv')
      open(unit=115,file='e:\FIS_duration\robinhood\MCK.csv')
      open(unit=116,file='e:\FIS_duration\robinhood\MNKD.csv')
      open(unit=117,file='e:\FIS_duration\robinhood\MRAM.csv')
      open(unit=118,file='e:\FIS_duration\robinhood\MRNA.csv')
      open(unit=119,file='e:\FIS_duration\robinhood\MXC.csv')
      open(unit=120,file='e:\FIS_duration\robinhood\NDLS.csv')
      open(unit=121,file='e:\FIS_duration\robinhood\NEON.csv')
      open(unit=122,file='e:\FIS_duration\robinhood\NHTC.csv')
      open(unit=123,file='e:\FIS_duration\robinhood\NKLA.csv')
      open(unit=124,file='e:\FIS_duration\robinhood\NSYS.csv')
      open(unit=125,file='e:\FIS_duration\robinhood\NVAX.csv')
      open(unit=126,file='e:\FIS_duration\robinhood\NVST.csv')
      open(unit=127,file='e:\FIS_duration\robinhood\OMER.csv')
      open(unit=128,file='e:\FIS_duration\robinhood\OMEX.csv')
      open(unit=129,file='e:\FIS_duration\robinhood\OPHC.csv')
      open(unit=130,file='e:\FIS_duration\robinhood\OPTN.csv')
      open(unit=131,file='e:\FIS_duration\robinhood\ORMP.csv')
      open(unit=132,file='e:\FIS_duration\robinhood\OSTK.csv')
      open(unit=133,file='e:\FIS_duration\robinhood\OVLY.csv')
      open(unit=134,file='e:\FIS_duration\robinhood\PAND.csv')
      open(unit=135,file='e:\FIS_duration\robinhood\PAYS.csv')
      open(unit=136,file='e:\FIS_duration\robinhood\PCYG.csv')
      open(unit=137,file='e:\FIS_duration\robinhood\PD.csv')
      open(unit=138,file='e:\FIS_duration\robinhood\PDEX.csv')
      open(unit=139,file='e:\FIS_duration\robinhood\PI.csv')
      open(unit=140,file='e:\FIS_duration\robinhood\PIR.csv')
      open(unit=141,file='e:\FIS_duration\robinhood\PLBC.csv')
      open(unit=142,file='e:\FIS_duration\robinhood\PLSE.csv')
      open(unit=143,file='e:\FIS_duration\robinhood\PLUG.csv')
      open(unit=144,file='e:\FIS_duration\robinhood\PTON.csv')
      open(unit=145,file='e:\FIS_duration\robinhood\RAD.csv')
      open(unit=146,file='e:\FIS_duration\robinhood\RDFN.csv')
      open(unit=147,file='e:\FIS_duration\robinhood\REAL.csv')
      open(unit=148,file='e:\FIS_duration\robinhood\REFR.csv')
      open(unit=149,file='e:\FIS_duration\robinhood\REKR.csv')
      open(unit=150,file='e:\FIS_duration\robinhood\RETA.csv')
      open(unit=151,file='e:\FIS_duration\robinhood\REV.csv')
      open(unit=152,file='e:\FIS_duration\robinhood\RIOT.csv')
      open(unit=153,file='e:\FIS_duration\robinhood\ROKU.csv')
      open(unit=154,file='e:\FIS_duration\robinhood\RVLV.csv')
      open(unit=155,file='e:\FIS_duration\robinhood\SAEX.csv')
      open(unit=156,file='e:\FIS_duration\robinhood\SAVA.csv')
      open(unit=157,file='e:\FIS_duration\robinhood\SDC.csv')
      open(unit=158,file='e:\FIS_duration\robinhood\SFIX.csv')
      open(unit=159,file='e:\FIS_duration\robinhood\SIEB.csv')
      open(unit=160,file='e:\FIS_duration\robinhood\SOLY.csv')
      open(unit=161,file='e:\FIS_duration\robinhood\SONO.csv')
      open(unit=162,file='e:\FIS_duration\robinhood\SORL.csv')
      open(unit=163,file='e:\FIS_duration\robinhood\SPCE.csv')
      open(unit=164,file='e:\FIS_duration\robinhood\SPWR.csv')
      open(unit=165,file='e:\FIS_duration\robinhood\SRNE.csv')
      open(unit=166,file='e:\FIS_duration\robinhood\STXS.csv')
      open(unit=167,file='e:\FIS_duration\robinhood\TAIT.csv')
      open(unit=168,file='e:\FIS_duration\robinhood\TCCO.csv')
      open(unit=169,file='e:\FIS_duration\robinhood\TELL.csv')
      open(unit=170,file='e:\FIS_duration\robinhood\TLRY.csv')
      open(unit=171,file='e:\FIS_duration\robinhood\TRUP.csv')
      open(unit=172,file='e:\FIS_duration\robinhood\TSRI.csv')
      open(unit=173,file='e:\FIS_duration\robinhood\UEC.csv')
      open(unit=174,file='e:\FIS_duration\robinhood\UFAB.csv')
      open(unit=175,file='e:\FIS_duration\robinhood\VERI.csv')
      open(unit=176,file='e:\FIS_duration\robinhood\VIR.csv')
      open(unit=177,file='e:\FIS_duration\robinhood\VUZI.csv')
      open(unit=178,file='e:\FIS_duration\robinhood\VXRT.csv')
      open(unit=179,file='e:\FIS_duration\robinhood\WHLM.csv')
      open(unit=180,file='e:\FIS_duration\robinhood\WKHS.csv')
      open(unit=181,file='e:\FIS_duration\robinhood\WRTC.csv')
      open(unit=182,file='e:\FIS_duration\robinhood\WWR.csv')
      open(unit=183,file='e:\FIS_duration\robinhood\XFOR.csv')
      open(unit=184,file='e:\FIS_duration\robinhood\XOMA.csv')
      open(unit=185,file='e:\FIS_duration\robinhood\XONE.csv')
      open(unit=186,file='e:\FIS_duration\robinhood\YEXT.csv')
      open(unit=187,file='e:\FIS_duration\robinhood\YUMA.csv')
      open(unit=188,file='e:\FIS_duration\robinhood\ZI.csv')
      open(unit=189,file='e:\FIS_duration\robinhood\ZIOP.csv')
      open(unit=190,file='e:\FIS_duration\robinhood\ZM.csv')
      open(unit=191,file='e:\FIS_duration\robinhood\ZN.csv')
      open(unit=192,file='e:\FIS_duration\robinhood\ZYNE.csv')
      open(unit=777,file='e:\FIS_duration\robinhood\all_robinhood.txt')
      do 10 i=1,182
          read(10,1000)ticker(i)
          write(6,1000)ticker(i)
1000      format(a5)
10    continue    
      do 100 ifl=11,192
          itc=ifl-10
          read(ifl,1100,end=100)raw
20        read(ifl,1100,end=100)raw
1100  format(a29)          
!          if(raw(13:13).ne.'2') go to 20
          date(1:4)=raw(2:5)
          date(5:6)=raw(7:8)
          date(7:8)=raw(10:11)
          nn=22
25        nn=nn+1
          if(raw(nn:nn).ne.' ') go to 25
          iend=nn-1
          k=8
          nhold='       '
          do 30 ii=iend,23,-1
              k=k-1
30            nhold(k:k)=raw(ii:ii)
         write(6,9900)ticker(itc),date,nhold
         write(777,9900)ticker(itc),date,nhold
9900     format(1x,a5,1x,a8,1x,a7)
         go to 20
100   continue         
      stop

    end program clean_robin
